library(plotly)
library(crosstalk)
library(ggplot2)
files <- list.files("dataCSV")
i <- 0
options(warn = -1)
frame = data.frame()
for (i in files) {
csv <- gsub(" ", "", paste("dataCSV\\", i))
data <- read.csv(csv, sep = ";", encoding = "Windows-1250")
df <- data.frame(data)
frame <- plyr::rbind.fill(frame, df)
}
f <- highlight_key(frame)
bscols(widths = 10,
filter_select(id = "powiat_miasto", label = "Powiat", f, ~ powiat_miasto),
plot_ly(data = f, x = frame$stan_rekordu_na, y = frame$liczba_przypadkow, type = 'scatter', mode = 'lines', color = frame$powiat_miasto) %>% layout(title = "Liczba zakażen Covid-19", xaxis = list(title = "data"), yaxis = list(title = "liczba przypadków"))
)
LS0tDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3IsIG1lc3NhZ2UgPSBGQUxTRX0NCmxpYnJhcnkocGxvdGx5KQ0KbGlicmFyeShjcm9zc3RhbGspDQpsaWJyYXJ5KGdncGxvdDIpDQpmaWxlcyA8LSBsaXN0LmZpbGVzKCJkYXRhQ1NWIikNCmkgPC0gMA0Kb3B0aW9ucyh3YXJuID0gLTEpDQpmcmFtZSA9IGRhdGEuZnJhbWUoKQ0KZm9yIChpIGluIGZpbGVzKSB7DQogIGNzdiA8LSBnc3ViKCIgIiwgIiIsIHBhc3RlKCJkYXRhQ1NWXFwiLCBpKSkNCiAgZGF0YSA8LSByZWFkLmNzdihjc3YsIHNlcCA9ICI7IiwgZW5jb2RpbmcgPSAiV2luZG93cy0xMjUwIikNCiAgZGYgPC0gZGF0YS5mcmFtZShkYXRhKQ0KICBmcmFtZSA8LSBwbHlyOjpyYmluZC5maWxsKGZyYW1lLCBkZikNCn0NCmYgPC0gaGlnaGxpZ2h0X2tleShmcmFtZSkNCg0KYnNjb2xzKHdpZHRocyA9IDEwLA0KICAgICAgIGZpbHRlcl9zZWxlY3QoaWQgPSAicG93aWF0X21pYXN0byIsIGxhYmVsID0gIlBvd2lhdCIsIGYsIH4gcG93aWF0X21pYXN0byksDQogICAgICAgcGxvdF9seShkYXRhID0gZiwgeCA9IGZyYW1lJHN0YW5fcmVrb3JkdV9uYSwgeSA9IGZyYW1lJGxpY3piYV9wcnp5cGFka293LCB0eXBlID0gJ3NjYXR0ZXInLCBtb2RlID0gJ2xpbmVzJywgY29sb3IgPSBmcmFtZSRwb3dpYXRfbWlhc3RvKSAlPiUgbGF5b3V0KHRpdGxlID0gIkxpY3piYSB6YWthxbxlbiBDb3ZpZC0xOSIsIHhheGlzID0gbGlzdCh0aXRsZSA9ICJkYXRhIiksIHlheGlzID0gbGlzdCh0aXRsZSA9ICJsaWN6YmEgcHJ6eXBhZGvDs3ciKSkNCikNCmBgYA==